perm filename TEST.LST[CM,DEK] blob sn#794117 filedate 1985-05-19 generic text, type T, neo UTF8
  1) TEST.MF[CM,DEK] and 2) TEST0.MF[CM,DEK]	5-19-85 17:24	pages 1,1

**** File 1) TEST.MF[CM,DEK]/1P/1L
1)	COMMENT āŠ—   VALID 00018 PAGES
1)	C REC  PAGE   DESCRIPTION
**** File 2) TEST0.MF[CM,DEK]/1P/1L
2)	COMMENT āŠ—   VALID 00008 PAGES
2)	C REC  PAGE   DESCRIPTION
***************


**** File 1) TEST.MF[CM,DEK]/1P/5L
1)	C00006 00003
1)	C00010 00004
1)	C00014 00005
1)	C00019 00006
1)	C00024 00007
1)	C00028 00008	cmchar "The letter s"
1)	C00032 00009	cmchar "The letter s"
1)	C00039 00010
1)	C00043 00011
1)	C00048 00012
1)	C00052 00013
1)	C00057 00014
1)	C00060 00015
1)	C00063 00016
1)	C00067 00017
1)	C00068 00018
1)	C00073 ENDMK
1)	CāŠ—;
**** File 2) TEST0.MF[CM,DEK]/1P/5L
2)	C00004 00003
2)	C00007 00004
2)	C00012 00005	cmchar "The letter s"
2)	C00017 00006
2)	C00021 00007
2)	C00025 00008
2)	C00029 ENDMK
2)	CāŠ—;
***************


**** File 1) TEST.MF[CM,DEK]/8P/3L
1)	italcorr x_height#*slant-if serifs:.55u# else:.3u# fi;
1)	adjust_fit(if monospace: .5u#,.4u# else: 0,if serifs:0 else:-.2u# fi fi);
1)	numeric theta; theta=90-angle(40u,h); slope:=-h/40u;	% angle at middle
**** File 2) TEST0.MF[CM,DEK]/5P/3L
2)	italcorr x_height#*slant-if serifs:.55u# else:.75u# fi;
2)	adjust_fit(if monospace: .5u#,.4u# elseif serifs: 0,0 else: .4u#,.25u# fi);
2)	numeric theta; theta=90-angle(40u,h); slope:=-h/40u;	% angle at middle
***************


**** File 1) TEST.MF[CM,DEK]/8P/11L
1)	x3r-x3l=x6r-x6l=round(.5[vair,ess])-fine;
1)	ellipse_set(2l,3l,4l,0l); ellipse_set(2r,3r,4r,0r); y3=y3r;
1)	ellipse_set(7l,6l,5l,0l); ellipse_set(7r,6r,5r,0r); y6=y6r;
1)	interim superness:=more_super;
1)	filldraw stroke super_arc.e(2,3) & z3e{down}
1)	 ..z4e---z5e..z6e{down} & super_arc.e(6,7);	% main stroke
1)	if serifs: penpos1(hair-fine,180); penpos8(hair-fine,180);
**** File 2) TEST0.MF[CM,DEK]/5P/11L
2)	x3r-x3l=x6r-x6l=round(.35[vair,ess])-fine;
2)	ellipse_set(2l,3l,4l,0l); ellipse_set(2r,3r,4r,0r);
2)	ellipse_set(7l,6l,5l,0l); ellipse_set(7r,6r,5r,0r);
2)	numeric tau; tau=max(.8,.20710678/(superness-.5));
2)	filldraw stroke z2e{left}..tension atleast tau..z3e{down}
2)	 ..z4e---z5e..z6e{down}..tension atleast tau..z7e{left};	% main stroke
2)	if serifs: penpos1(hair-fine,180); penpos8(hair-fine,180);
***************


**** File 1) TEST.MF[CM,DEK]/8P/24L
1)	 x10=x1l; top y10=top y2l; x9=x8r; bot y9=0;
1)	 x1l-x1'=x8'-x8r=curve-fine; y1'=y1; y8'=y8;
1)	 numeric t; t=xpart(upper_arc intersectiontimes(z10..z1'));
**** File 2) TEST0.MF[CM,DEK]/5P/24L
2)	 x10=x1l; top y10=h+oo; x9=x8r; bot y9=0;
2)	 x1l-x1'=x8'-x8r=curve-tiny; y1'=y1; y8'=y8;
2)	 numeric t; t=xpart(upper_arc intersectiontimes(z10..z1'));
***************


**** File 1) TEST.MF[CM,DEK]/8P/30L
1)	else: penpos1(4/7[vair,flare]-fine,-100); penpos8(flare-fine,-90);
1)	 x1l=good.x(x1l+w-u-rt x1); lft x8r=round .6u;
1)	 top y1l=round(.93h+1.5oo); bot y8r=round .1h-oo;
**** File 2) TEST0.MF[CM,DEK]/5P/30L
2)	else: penpos1(5/7[vair,flare]-fine,-100); penpos8(flare-fine,-90);
2)	 rt x1=round(w-u); lft x8=round .6u;
2)	 top y1l=round(.93h+1.5oo); bot y8r=round .1h-oo;
***************


**** File 1) TEST.MF[CM,DEK]/9P/1L
1)	cmchar "The letter s";
1)	beginchar("s",7.1u#,x_height#,0);
1)	italcorr x_height#*slant-if serifs:.55u# else:.75u# fi;
1)	adjust_fit(if monospace: .5u#,.4u# else: 0,0 fi);
1)	numeric theta; theta=90-angle(40u,h); slope:=-h/40u;	% angle at middle
1)	pickup fine.nib; penpos2(round(.1[vair,thin_join])-fine,-100);
1)	penpos0(ess-fine,theta); penpos7(vair-fine,-90); x2l=x0=x7=.5w;
1)	top y2l=h+round(1.5oo); bot y7r=-oo;
1)	y0-.5ess=y7l+if serifs:.54 else: .52 fi(y2r-y7l-ess);
1)	lft x3l=round .6u; rt x6r=round(w-.6u);
1)	x3r-x3l=x6r-x6l=round(.5[vair,ess])-fine;
1)	ellipse_set(2l,3l,4l,0l); ellipse_set(2r,3r,4r,0r); y3=y3r;
1)	ellipse_set(7l,6l,5l,0l); ellipse_set(7r,6r,5r,0r); y6=y6r;
1)	filldraw stroke super_arc.e(2,3) & z3e{down}
1)	 ..z4e---z5e..z6e{down} & super_arc.e(6,7);	% main stroke
1)	if serifs: penpos1(hair-fine,180); penpos8(hair-fine,180);
1)	 rt x1l=round(w-1.05u); lft x8r=round .6u;
1)	 bot y1=round .7h+1; top y8=round .35h-1;
1)	 filldraw stroke z1e{up}....{left}z2e;	% upper arc
1)	 filldraw stroke z7e{left}....{curl .5}z8e;	% lower arc
1)	 path upper_arc, lower_arc;
1)	 upper_arc=z1{up}....{left}z2; lower_arc=z7{left}....{curl .5}z8;
1)	 x10=x1l; top y10=top y2l; x9=x8r; bot y9=0;
1)	 x1l-x1'=x8'-x8r=curve-fine; y1'=y1; y8'=y8;
1)	 numeric t; t=xpart(upper_arc intersectiontimes(z10..z1'));
1)	 filldraw z1l--z10--subpath(t,0) of upper_arc--cycle;	% upper barb
1)	 t:=xpart(lower_arc intersectiontimes(z9..z8'));
1)	 filldraw z8r--z9--subpath(t,1) of lower_arc--cycle;	% lower barb
1)	else: penpos1(5/7[vair,flare]-fine,-100); penpos8(flare-fine,-90);
1)	 rt x1=round(w-u); lft x8=round .6u;
1)	 top y1l=round(.93h+1.5oo); bot y8r=round .1h-oo;
1)	 filldraw stroke z1e..tension.9..{left}z2e;	% upper arc and terminal
1)	 filldraw stroke z7e{left}..z8e; fi	% lower arc and terminal
1)	penlabels(0,1,1',2,3,4,5,6,7,8,8',9,10); endchar;
**** File 2) TEST0.MF[CM,DEK]/8P/1L
***************